home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pov / povlisti.ngs / delay.pov < prev    next >
Encoding:
Text File  |  1993-01-03  |  1.6 KB  |  82 lines
  1. // Persistence of Vision Raytracer
  2. // illustrates use of ANI.AWK to animate two balls
  3. // first ball drops from right of view, bounces up to left
  4. // second ball follows the first with a time delay
  5. //
  6. #include "shapes.inc"         
  7. #include "colors.inc"
  8. #include "textures.inc"
  9.  
  10. #declare xlook=0
  11. #declare lrot=0
  12. #declare xview=0
  13. #declare zview= -180
  14.  
  15. #include "delay.inc"
  16.  
  17. camera {
  18.         location <xview 30.0 zview>
  19.         up <0.0 1.0 0.0>
  20.         right <1.333 0.0 0.0>
  21.         look_at <xlook 40.0 0.0>
  22.  }
  23. object {
  24.     light_source {< 0 80 -180 >
  25.         colour White
  26.     }
  27. }
  28.  
  29. object {
  30.     sphere { <x1 y1 -30> 5 }
  31.         texture {
  32.             reflection .1
  33.             color Magenta
  34.         }
  35. // move up to allow for ball diameter
  36.         translate < 0 5 0>
  37. }
  38.  
  39. object {
  40.     sphere { <x2 y2 -30> 5 }
  41.         texture {
  42.             reflection .1
  43.             color Red
  44.         }
  45. // move up to allow for ball diameter
  46.         translate < 0 5 0>
  47. }
  48.  
  49.  
  50. object {
  51.     plane { <0.0 1.0 0.0> 0.0  }
  52.    
  53.          texture {
  54.               checker color White color Red
  55.               reflection 0.2
  56.              scale <15.0 15.0 15.0>
  57.           }
  58.  }
  59.  
  60. object { /* Sky stolen from "chess.dat" */
  61.    sphere { <0 -39000 0> 40000 inverse  }
  62.  
  63.    texture {
  64.       bozo
  65.       turbulence 0.6
  66.       colour_map {
  67.          [0 0.5 colour red 0.4 green 0.5 blue 1
  68.                   colour red 0.4 green 0.5 blue 1.0]
  69.          [0.5 0.7 colour red 0.4 green 0.5 blue 1
  70.                   colour red 1 green 1 blue 1.0]
  71.          [0.7 1 colour red 1 green 1 blue 1
  72.                   colour red 0.7 green 0.7 blue 0.7]
  73.        }
  74.       scale <500 500 500>
  75.       ambient 1
  76.       diffuse 0
  77.     }
  78.  
  79.    colour red 0.4 green 0.5 blue 1
  80.  }
  81.  
  82.